PC-SIG Library 10

home *** CD-ROM | disk | FTP | other *** search

/ PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 1 / DISK0412.ZIP / ROLODEX.CMD < prev next >

Wrap

Text File | 1985-04-03 | 9.8 KB | 275 lines

* COMPUCARD PROGRAM * ROLODEX SIMULATOR * 1984 Joe Austin [Modern Alternative Data] * all rights reserved * You are free to pass this program along ... but I forbid * anybody to sell it. * * Files needed for this program are: * ROLODEX.CMD * ROLMENU.FMT * ROLSCRN.FMT * ROLPRINT.CMD * SELSCRN.FMT * B:ROLDEX.DBF * B:ROLDEX1.NDX * set talk off set intensity on set confirm on set bell off set format to screen erase store '?' to choice store date() to mdate do while choice <> 'Q' store date() to mdate store ' ' to mname store '(000)000-0000' to mrphone store ' ' to mraddr store ' ' to mrcity store ' ' to mrstate store '00000-0000' to mrzip store '(000)000-0000' to mophone store ' ' to moaddr store ' ' to mocity store ' ' to mostate store '00000-0000' to mozip store ' ' to mcomment store '?' to choice erase do rolmenu.fmt read set date to &mdate do case case choice = 'A' store 'Please input data:' to mode use b:rolodex index b:roldex1 erase store '?' to another do while another <> 'N' .and. another <> 'Q' erase store date() to mdate store ' ' to mname store '(000)000-0000' to mrphone store ' ' to mraddr store ' ' to mrcity store ' ' to mrstate store '00000-0000' to mrzip store '(000)000-0000' to mophone store ' ' to moaddr store ' ' to mocity store ' ' to mostate store '00000-0000' to mozip store ' ' to mcomment store '?' to ok do while ok <> 'Y' .and. ok <> 'Q' erase do rolscrn.fmt read enddo while ok <> 'Y' .and. ok <> 'Q' append blank replace name with mname replace rphone with mrphone replace raddr with mraddr replace rcity with mrcity replace rstate with mrstate replace rzip with mrzip replace ophone with mophone replace oaddr with moaddr replace ocity with mocity replace ostate with mostate replace ozip with mozip replace date with mdate replace comment with mcomment erase @ 10,10 say 'Do you wish to add another member' @ 10,48 get another picture '!' read enddo while another <> 'N' .and. another <> 'Q use case choice = 'G' store 'Please edit data:' to mode store ' ' to mname store '(000)000-0000' to mrphone store ' ' to mraddr store ' ' to mrcity store ' ' to mrstate store '00000-0000' to mrzip store '(000)000-0000' to mophone store ' ' to moaddr store ' ' to mocity store ' ' to mostate store '00000-0000' to mozip store ' ' to mcomment store '?' to ok store ' ' to findname use b:rolodex index b:roldex1 erase @ 10,10 say 'ENTER THE NAME TO GET' @ 10,33 get findname read set exact off find &findname store name to mname store rphone to mrphone store raddr to mraddr store rcity to mrcity store rstate to mrstate store rzip to mrzip store ophone to mophone store oaddr to moaddr store ocity to mocity store ostate to mostate store ozip to mozip store date to mdate store comment to mcomment do while ok <> 'Y' .and. ok <> 'Q' store '?' to ok erase do rolscrn.fmt read enddo while ok <> 'Y' .and. ok <> 'Q' replace name with mname replace rphone with mrphone replace raddr with mraddr replace rcity with mrcity replace rstate with mrstate replace rzip with mrzip replace ophone with mophone replace oaddr with moaddr replace ocity with mocity replace ostate with mostate replace ozip with mozip replace date with mdate replace comment with mcomment use case choice = 'D' erase use b:rolodex index b:roldex1 store 'YOU HAVE CHOSEN THE DELETE MODE!! ' to mode store ' ' to mname store '(000)000-0000' to mrphone store ' ' to mraddr store ' ' to mrcity store ' ' to mrstate store '00000-0000' to mrzip store '(000)000-0000' to mophone store ' ' to moaddr store ' ' to mocity store ' ' to mostate store '00000-0000' to mozip store ' ' to mcomment store '?' to ok store ' ' to findname use b:rolodex index b:roldex1 erase @ 10,10 say 'ENTER THE NAME TO DELETE' @ 10,36 get findname read set exact off find &findname store name to mname store rphone to mrphone store raddr to mraddr store rcity to mrcity store rstate to mrstate store rzip to mrzip store ophone to mophone store oaddr to moaddr store ocity to mocity store ostate to mostate store ozip to mozip store date to mdate store comment to mcomment store '?' to ok erase @ 01,24 say 'Modern' @ 01,31 say 'Alternative' @ 01,43 say 'Data' @ 02,30 say 'COMPU-CARD' @ 03,01 say '====================================================== @ 04,02 say mode @ 05,01 say '------------------------------------------------------ @ 06,57 say 'DATE:' @ 06,63 say date() @ 07,06 say mname @ 09,01 say 'RESIDENCE:' @ 10,07 say mrphone picture '(999)999-9999' @ 11,09 say mraddr @ 12,06 say mrcity @ 12,35 say mrstate @ 12,51 say mrzip picture '99999-9999' @ 14,01 say 'OFFICE:' @ 15,07 say mophone picture '(999)999-9999' @ 16,09 say moaddr @ 17,06 say mocity @ 17,35 say mostate @ 17,51 say mozip picture '99999-9999' @ 19,09 say mcomment @ 21,01 say '------------------------------------------------------ @ 22,01 say 'Should I delete this ' @ 22,24 get ok @ 23,01 say '====================================================== read if ok = 'Y' delete else clear gets @ 22,01 say 'As you wish, this member has NOT been deleted. read endif ok = 'Y' use case choice = 'I' erase use b:rolodex index b:roldex1 set talk on pack set talk off use case choice = 'S' erase ? 'Please insert the new diskette in drive B and then press return.' wait reset b ? 'Thank you.' case choice = 'R' store '?' to ok store ' ' to great store ' ' to less store ' ' to equal store ' ' to findname erase do while ok <> 'Y' .and. ok <> 'Q' store '?' to ok do selscrn.fmt read enddo while ok <> 'Y' .and. ok <> 'Q' store ' ' to temphold store ' ' to relation if ok <> 'Q' if great <> ' ' store '>' to relation endif great <> ' ' if less <> ' ' store '<' to relation endif less <> ' ' if equal <> ' ' store '=' to relation endif equal <> ' ' store relation + "'" + findname + "'" to temphold store temphold to findname if relation = '=' .or. relation = '<' .or. relation = '>' do rolprint endif relation = '=' .or. relation = '<' .or. endif ok <> 'Q' endcase release mname release mrphone,mraddr,mrcity,mrstate,mrzip release mophone,moaddr,mocity,mostate,mozip release mcomment enddo while choice <> 'Q' quit do selscrn.fmt read enddo while ok <> 'Y